home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s4.arc / PIBTERM.JMP < prev    next >
Text File  |  1987-09-08  |  9KB  |  200 lines
  1. CONST
  2.   ProcOffsets : ARRAY[0..194] OF INTEGER =
  3.     (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  4.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  5.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  6.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  7.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  8.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  9.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  10.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  11.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  12.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
  13.  
  14. PROCEDURE SetupJumpTable;
  15.   {-initialize the offsets of the near procedures}
  16.   {-for module "MAINMODULE" }
  17. CONST
  18.   idstring : BigTurboString = 'SETUPJUMPTABLE FOLLOWS';
  19. BEGIN
  20.   ProcOffsets[0] := OFS(Print_Spooled_File);
  21.   ProcOffsets[1] := OFS(Update_Status_Line);
  22.   ProcOffsets[2] := OFS(Halt);
  23.   ProcOffsets[3] := OFS(Set_Text_Attributes);
  24.   ProcOffsets[4] := OFS(INT24);
  25.   ProcOffsets[5] := OFS(INT24On);
  26.   ProcOffsets[6] := OFS(INT24Off);
  27.   ProcOffsets[7] := OFS(INT24Result);
  28.   ProcOffsets[8] := OFS(IsTimeSharingActive);
  29.   ProcOffsets[9] := OFS(TurnOnTimeSharing);
  30.   ProcOffsets[10] := OFS(TurnOffTimeSharing);
  31.   ProcOffsets[11] := OFS(GiveAwayTime);
  32.   ProcOffsets[12] := OFS(Read_Kbd);
  33.   ProcOffsets[13] := OFS(Min);
  34.   ProcOffsets[14] := OFS(Max);
  35.   ProcOffsets[15] := OFS(Dupl);
  36.   ProcOffsets[16] := OFS(Substr);
  37.   ProcOffsets[17] := OFS(UpperCase);
  38.   ProcOffsets[18] := OFS(CopyStoA);
  39.   ProcOffsets[19] := OFS(CopyS2AR);
  40.   ProcOffsets[20] := OFS(Read_Ctrls);
  41.   ProcOffsets[21] := OFS(Write_Ctrls);
  42.   ProcOffsets[22] := OFS(GetEnvStr);
  43.   ProcOffsets[23] := OFS(DialDateString);
  44.   ProcOffsets[24] := OFS(IToS);
  45.   ProcOffsets[25] := OFS(TimeOfDay);
  46.   ProcOffsets[26] := OFS(TimeDiff);
  47.   ProcOffsets[27] := OFS(TimeString);
  48.   ProcOffsets[28] := OFS(DateString);
  49.   ProcOffsets[29] := OFS(BIOS_RS232_Init);
  50.   ProcOffsets[30] := OFS(DOS_Set_Intrpt);
  51.   ProcOffsets[31] := OFS(Async_Isr);
  52.   ProcOffsets[32] := OFS(Async_Init);
  53.   ProcOffsets[33] := OFS(Async_Close);
  54.   ProcOffsets[34] := OFS(Async_Line_Error);
  55.   ProcOffsets[35] := OFS(MoveFromScreen);
  56.   ProcOffsets[36] := OFS(MoveToScreen);
  57.   ProcOffsets[37] := OFS(Async_Clear_Errors);
  58.   ProcOffsets[38] := OFS(Async_Reset_Port);
  59.   ProcOffsets[39] := OFS(Async_Open);
  60.   ProcOffsets[40] := OFS(Async_Carrier_Detect);
  61.   ProcOffsets[41] := OFS(Async_Carrier_Drop);
  62.   ProcOffsets[43] := OFS(Async_Term_Ready);
  63.   ProcOffsets[44] := OFS(Async_Buffer_Check);
  64.   ProcOffsets[45] := OFS(Async_Receive);
  65.   ProcOffsets[46] := OFS(Async_Receive_With_Timeout);
  66.   ProcOffsets[47] := OFS(Async_Ring_Detect);
  67.   ProcOffsets[48] := OFS(Async_Send);
  68.   ProcOffsets[49] := OFS(Async_Send_Break);
  69.   ProcOffsets[50] := OFS(Async_Send_String);
  70.   ProcOffsets[51] := OFS(Async_Send_String_With_Delays);
  71.   ProcOffsets[52] := OFS(Async_Percentage_Used);
  72.   ProcOffsets[53] := OFS(Async_Purge_Buffer);
  73.   ProcOffsets[54] := OFS(EGA_Installed);
  74.   ProcOffsets[55] := OFS(Open_For_Append);
  75.   ProcOffsets[56] := OFS(Turbo_Window);
  76.   ProcOffsets[57] := OFS(Window);
  77.   ProcOffsets[58] := OFS(Color_Screen_Active);
  78.   ProcOffsets[59] := OFS(Current_Video_Mode);
  79.   ProcOffsets[60] := OFS(Get_Screen_Address);
  80.   ProcOffsets[61] := OFS(RvsVideoOn);
  81.   ProcOffsets[62] := OFS(RvsVideoOff);
  82.   ProcOffsets[63] := OFS(Upper_Left);
  83.   ProcOffsets[64] := OFS(Set_Global_Colors);
  84.   ProcOffsets[65] := OFS(Reset_Global_Colors);
  85.   ProcOffsets[66] := OFS(Get_Screen_Text_Line);
  86.   ProcOffsets[67] := OFS(Print_Screen);
  87.   ProcOffsets[68] := OFS(Write_Screen);
  88.   ProcOffsets[69] := OFS(WriteSXY);
  89.   ProcOffsets[70] := OFS(WriteCXY);
  90.   ProcOffsets[71] := OFS(Save_Screen);
  91.   ProcOffsets[72] := OFS(Restore_Screen);
  92.   ProcOffsets[73] := OFS(Clear_Window);
  93.   ProcOffsets[74] := OFS(Menu_Set_Explode);
  94.   ProcOffsets[75] := OFS(Menu_Set_Beep);
  95.   ProcOffsets[76] := OFS(Menu_Set_Box_Chars);
  96.   ProcOffsets[77] := OFS(Draw_Menu_Frame);
  97.   ProcOffsets[78] := OFS(Menu_Click);
  98.   ProcOffsets[79] := OFS(Menu_Beep);
  99.   ProcOffsets[80] := OFS(Menu_Turn_On);
  100.   ProcOffsets[81] := OFS(Menu_Turn_Off);
  101.   ProcOffsets[82] := OFS(Menu_IBMCh);
  102.   ProcOffsets[83] := OFS(Menu_Display_Choices);
  103.   ProcOffsets[84] := OFS(Menu_Get_Choice);
  104.   ProcOffsets[85] := OFS(Convert_AsciiZ_To_String);
  105.   ProcOffsets[86] := OFS(Convert_String_To_AsciiZ);
  106.   ProcOffsets[87] := OFS(Dir_Get_Current_Path);
  107.   ProcOffsets[88] := OFS(Dir_Set_Current_Path);
  108.   ProcOffsets[89] := OFS(Dir_Set_Disk_Transfer_Address);
  109.   ProcOffsets[90] := OFS(Dir_Set_Default_Drive);
  110.   ProcOffsets[91] := OFS(Dir_Get_Default_Drive);
  111.   ProcOffsets[92] := OFS(Dir_Delete_File);
  112.   ProcOffsets[93] := OFS(Dir_Count_Drives);
  113.   ProcOffsets[94] := OFS(Dir_Convert_Time);
  114.   ProcOffsets[95] := OFS(Dir_Convert_Date);
  115.   ProcOffsets[96] := OFS(Dir_Find_First_File);
  116.   ProcOffsets[97] := OFS(Dir_Find_Next_File);
  117.   ProcOffsets[98] := OFS(Dir_Get_Free_Space);
  118.   ProcOffsets[99] := OFS(Dir_Set_File_Date_And_Time);
  119.   ProcOffsets[100] := OFS(Dir_Get_File_Date_And_Time);
  120.   ProcOffsets[101] := OFS(Open_File_Handle);
  121.   ProcOffsets[102] := OFS(Close_File_Handle);
  122.   ProcOffsets[103] := OFS(Read_File_Handle);
  123.   ProcOffsets[104] := OFS(Write_File_Handle);
  124.   ProcOffsets[105] := OFS(Create_File_Handle);
  125.   ProcOffsets[106] := OFS(Trim);
  126.   ProcOffsets[107] := OFS(Send_Modem_Command);
  127.   ProcOffsets[109] := OFS(Error_Handler);
  128.   ProcOffsets[110] := OFS(Set_EGA_Text_Mode);
  129.   ProcOffsets[111] := OFS(Async_Flush_Output_Buffer);
  130.   ProcOffsets[112] := OFS(InitOvly);
  131.   ProcOffsets[113] := OFS(YesNo);
  132.   ProcOffsets[114] := OFS(HangUpPhone);
  133.   ProcOffsets[115] := OFS( Install_Video_Handler );
  134.   ProcOffsets[116] := OFS( Remove_Video_Handler );
  135.   ProcOffsets[117] := OFS(MaxBlockAvail);
  136.   ProcOffsets[118] := OFS(LTrim);
  137.   ProcOffsets[119] := OFS(Set_Translate_Table);
  138.   ProcOffsets[120] := OFS(Set_Input_Keys);
  139.   ProcOffsets[121] := OFS(Display_Help);
  140.   ProcOffsets[123] := OFS(PibFileManipulation);
  141.   ProcOffsets[124] := OFS(PibUpLoad);
  142.   ProcOffsets[125] := OFS(Send_Ascii_File);
  143.   ProcOffsets[126] := OFS(PibDownLoad);
  144.   ProcOffsets[127] := OFS(Receive_Ascii_File);
  145.   ProcOffsets[128] := OFS(Adjust_Hour);
  146.   ProcOffsets[129] := OFS(Write_Log);
  147.   ProcOffsets[130] := OFS(GetAreaCode);
  148.   ProcOffsets[131] := OFS(Read_Number);
  149.   ProcOffsets[132] := OFS(Review_Captured_Text);
  150.   ProcOffsets[133] := OFS(Display_Timers);
  151.   ProcOffsets[134] := OFS(Do_Screen_Dump);
  152.   ProcOffsets[135] := OFS(Get_Capture_File);
  153.   ProcOffsets[136] := OFS(Fast_Change_Params);
  154.   ProcOffsets[137] := OFS(DosJump);
  155.   ProcOffsets[138] := OFS(Make_And_Display_Menu);
  156.   ProcOffsets[139] := OFS(Make_A_Menu);
  157.   ProcOffsets[142] := OFS(Set_Border_Color);
  158.   ProcOffsets[146] := OFS(Terminal_Emulations);
  159.   ProcOffsets[147] := OFS(InitTerm);
  160.   ProcOffsets[148] := OFS(FiniTerm);
  161.   ProcOffsets[153] := OFS(Get_Auto_File_Name) ;
  162.   ProcOffsets[158] := OFS(Install_Keyboard_Handler);
  163.   ProcOffsets[159] := OFS(Remove_Keyboard_Handler);
  164.   ProcOffsets[160] := OFS(Edit_String);
  165.   ProcOffsets[161] := OFS(Read_Edited_String);
  166.   ProcOffsets[162] := OFS(CursorOn);
  167.   ProcOffsets[163] := OFS(CursorOff);
  168.   ProcOffsets[164] := OFS(DOS_Set_Intrpt);
  169.   ProcOffsets[165] := OFS(DOS_Get_Intrpt);
  170.   ProcOffsets[166] := OFS(MyLoadOverlay);
  171.   ProcOffsets[167] := OFS(Async_Drain_Output_Buffer);
  172.   ProcOffsets[168] := OFS(CursorGet);
  173.   ProcOffsets[169] := OFS(CursorSet);
  174.   ProcOffsets[170] := OFS(Relative_Position_File_Handle);
  175.   ProcOffsets[171] := OFS(Press_Any);
  176.   ProcOffsets[173] := OFS(Write_To_Status_Line);
  177.   ProcOffsets[174] := OFS(WriteTTY);
  178.   ProcOffsets[175] := OFS(Hex_To_Dec);
  179.   ProcOffsets[176] := OFS(Dec_To_Hex);
  180.   ProcOffsets[177] := OFS(Async_Peek);
  181.   ProcOffsets[178] := OFS(Save_Partial_Screen);
  182.   ProcOffsets[179] := OFS(Set_Screen_Size);
  183.   ProcOffsets[180] := OFS(Get_Screen_Text_Line);
  184.   ProcOffsets[181] := OFS(Scroll);
  185.   ProcOffsets[182] := OFS(Set_Graphics_Colors);
  186.   ProcOffsets[183] := OFS(MoveToXY);
  187.   ProcOffsets[184] := OFS(Get_Screen_Size);
  188.   ProcOffsets[185] := OFS(Get_Upload_Protocol);
  189.   ProcOffsets[186] := OFS(Get_Download_Protocol);
  190.   ProcOffsets[187] := OFS(ReadCXY);
  191.   ProcOffsets[188] := OFS(CloneCodeSegment);
  192.   ProcOffsets[189] := OFS(Press_Any);
  193.   ProcOffsets[190] := OFS(Sync_Screen);
  194.   ProcOffsets[191] := OFS(Draw_Box);
  195.   ProcOffsets[192] := OFS(Write_Graphics_Screen);
  196.   ProcOffsets[193] := OFS(Define_Key);
  197.   ProcOffsets[194] := OFS(Get_Key_Section);
  198.   INLINE($8B/$E5/$5D/$CB); {return to calling segment}
  199. END;
  200.